home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue61 / Clinic / ActionTracerMainFormU.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-06-28  |  1014 b   |  52 lines
  1. unit ActionTracerMainFormU;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdActns, StdCtrls, Menus, ActnList;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     ActionList1: TActionList;
  12.     actFileExit: TAction;
  13.     Action2: TAction;
  14.     Action3: TAction;
  15.     Action4: TAction;
  16.     Action5: TAction;
  17.     Action6: TAction;
  18.     Action7: TAction;
  19.     Action8: TAction;
  20.     MainMenu1: TMainMenu;
  21.     mnuFile: TMenuItem;
  22.     mnuExit: TMenuItem;
  23.     Edit1: TEdit;
  24.     Memo1: TMemo;
  25.     mnuEdit: TMenuItem;
  26.     actCopy: TEditCopy;
  27.     actCut: TEditCut;
  28.     actPaste: TEditPaste;
  29.     mnuCopy: TMenuItem;
  30.     mnuPaste: TMenuItem;
  31.     mnuCut: TMenuItem;
  32.     procedure actFileExitExecute(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. var
  40.   Form1: TForm1;
  41.  
  42. implementation
  43.  
  44. {$R *.DFM}
  45.  
  46. procedure TForm1.actFileExitExecute(Sender: TObject);
  47. begin
  48.   Application.MainForm.Close
  49. end;
  50.  
  51. end.
  52.